<?php
/* 
 * ********* CVS HEADER ********* 
 * 
 * $RCSfile: admhtmlrepsupp.php,v $ 
 * $Date: 2006/03/21 17:51:37 $ 
 * $Revision: 1.3 $ 
 * 
 * ********* CVS HEADER ********* 
 */
//on verifie que l'on a le droit de toucher au repertoire
$query="SELECT id_parent,path FROM html_repertoire,hierarchie WHERE html_repertoire.droit=hierarchie.id_groupe AND hierarchie.id_groupe_dessus='$session[id_groupe]' AND html_repertoire.id='$r'";
$result=rportalrequete($query) or rportalerreur ("$query","?op=");
if(rportalnbresult($result)==0){
	rportalerreur ("VOUS N'AVEZ PAS LE DROIT DE SUPPRIMER CE REPERTOIRE [ID=$r].","?op=admhtmlnav");
}
$row=rportalligne($result);
$id_parent=$row[id_parent];
//on verifie que le repertoire est vide
$query="SELECT id FROM html WHERE id_repertoire='$r'";
$result=rportalrequete($query) or rportalerreur ("$query","?op=");
if(rportalnbresult($result)>0){
	rportalerreur ("VOUS NE POUVEZ PAS SUPPRIMER CE REPERTOIRE [ID=$r].<br>DES FICHIERS SONT ENCORE PRESENTS.","?op=admhtmlnav");
}
$query="SELECT id FROM html_repertoire WHERE id_parent='$r'";
$result=rportalrequete($query) or rportalerreur ("$query","?op=");
if(rportalnbresult($result)>0){
	rportalerreur ("VOUS NE POUVEZ PAS SUPPRIMER CE REPERTOIRE [ID=$r].<br>DES REPERTOIRES SONT ENCORE PRESENTS.","?op=admhtmlnav");
}
//On supprime le repertoire
$query="DELETE FROM html_repertoire WHERE id='$r'";
@rportalrequete($query) or rportalerreur ("$query","?op=");

header("Location: ?op=admhtmlnav&r=$id_parent");
exit;
?>